module constants
  implicit none
  real(kind=8), parameter :: pi = 3.14159265358979323846d0
  real(kind=8), parameter :: pi2 = 2.0d0 * pi
  complex(kind=8), parameter :: aj = (0.0d0, 1.0d0)
  
  integer, parameter :: NM = 50
  integer, parameter :: N = 2**14 + 2
  integer, parameter :: MAX = 5
end module constants

